// Copyright  1995 Apple Computer, Inc. All rights reserved.

// Open the resource file that contains the sound, and assign the
// file ID to a temporary variable rf
// NOTE: specify the full pathname from your hard drive down...
//rf := OpenResFileX(home & "src.rcr"); 

// Read in the 11KHz sampled sound
//DefConst('kBoingSound, GetSound11("Boing")) ;
//DefConst('kMetalSound, GetSound11("Metal")) ;
// close up any resource files that were opened (VERY important)
//CloseResFileX(rf);

rf:=OpenResFileX(home & "pictures");

DefConst('ico, GetNamedResource("PICT", "grau",  'picture));
CloseResFileX(rf);
